===========================================================================
 BBS: The Abacus * HST/DS * Potterville MI
Date: 02-13-93 (19:54)             Number: 41
From: EARL MONTGOMERY              Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: LOADFONT.BAS (NEEDED FOR       Conf: (35) Quick Basi
---------------------------------------------------------------------------
'$INCLUDE: 'qb.bi'
 DIM inregs AS RegTypeX, outregs AS RegTypeX
 DIM scrn2(3584)
 SCREEN 9: REM can also be screen 12 or 13 if you have VGA
 DEF SEG = VARSEG(scrn2(0))
 v = VARPTR(scrn2(0))
 ' You will want to replace "romfont.dat" with your new fonts
 BLOAD "romfont.dat", v
 inregs.ax = &H1121
 inregs.cx = 14
 inregs.es = VARSEG(scrn2(0))
 inregs.bp = VARPTR(scrn2(0))
 CALL INTERRUPTX(&H10, inregs, outregs)
 DEF SEG
 'Your Program would start here
 PRINT "This is A Test AAA 1234567890."
 PRINT "ABCDEFGHIJKLMNOPQRSTUVWXYZ earl montgomery";
HoldScreen:
 GOTO HoldScreen


--- Maximus 2.01wb
 * Origin: Rabbit and Snake's BBS - Richardson, Texas (1:124/6108)
SEEN-BY: 1/211 11/2 4 13/13 101/1 108/89 109/25 110/69 114/5 123/19 124/1
SEEN-BY: 153/752 154/40 77 157/2 159/100 125 430 950 203/23 209/209 280/1
SEEN-BY: 390/1 396/1 15 397/2 2230/100 3603/20